home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 32 / PC Gamer IT CD 32 1-2.iso / ELINK / 14-DAY / CLARISHP / _SETUP.1 / HOMEPAGE.exe / 1009 / 153 < prev    next >
Encoding:
Text File  |  1997-02-20  |  16.4 KB  |  546 lines
  1. // -----
  2. // VDL153.txt
  3. // Copyright 1996 Claris
  4. // -----
  5.  
  6.  
  7.  
  8. //Doc Options
  9. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  10. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  11. /************************** LOCALIZED STRING CONSTANTS BEGIN **************************************/
  12.  
  13. //This section contains all localizable string constants for this VDL program. Be sure to 
  14. //include the backslash character at the end of each line of a multi-line string, except for the last line.
  15. //You may also flatten multiline constants into a single line, if you prefer
  16.  
  17. #define kLit1 "Document &Title:"
  18. #define kLit2 "Title stored in the HTML file.  Most browsers"\
  19.                     " will display this in the window title."
  20.                                 
  21. #define kLit3 "Form &Action:"
  22. #define kLit4 "The CGI script to be executed when the user presses"\
  23.                   " a submit button for a form in this document."
  24.                         
  25. #define kLit5 "The \"method\" to use when transmitting form"\
  26.                     " data to the HTTP server."
  27.                         
  28. #define kLit6 "GET"
  29. #define kLit7 "POST"
  30. #define kLit8 "Base Document &URL:"
  31. #define kLit9 "Specifies a base URL from which relative links in"\
  32.                     " this file will be resolved.  If empty, relative links"\
  33.                     " are resolved from the location of the file."
  34.                          
  35. #define kLit10 "Default Target &Frame:"
  36. #define kLit11 "If not empty, specifies a default frame in which"\
  37.                     " all links from this document will be displayed.  Only used"\
  38.                     " in conjunction with HTML Frames."
  39.                          
  40. #define kLit12 "&Prefix Comment:"
  41. #define kLit13 "A comment string which will appear at the beginning of the HTML file."
  42. #define kLit14 "<HTM&L> Tag Parameters:"
  43. #define kLit15 "Extra parameters to be placed in the <HTML> tag, i.e. <HTML xxx>."
  44. #define kLit16 "<HE&AD> Tag Parameters:"
  45. #define kLit17 "Extra parameters to be placed in the <HEAD> tag,  i.e. <HEAD xxx>."
  46. #define kLit18 "Text in HEAD &Section:"
  47. #define kLit19 "Extra HTML code to be placed within the HEAD section, i.e. <HEAD> xxx </HEAD>."
  48. #define kLit20 "<&BODY> Tag Parameters:"
  49. #define kLit21 "Extra parameters to be placed in the <BODY> tag, i.e. <BODY xxx>."
  50. #define kLit22 "Text:"
  51. #define kLit23 "Color for normal text."
  52. #define kLit24 "Normal Link:"
  53. #define kLit25 "Color for linked text."
  54. #define kLit26 "Active Link:"
  55. #define kLit27 "Color for a link being clicked on."
  56. #define kLit28 "Background:"
  57. #define kLit29 "Color of the page background (only used"\
  58.                     " if no background image is specified, or"\
  59.                     " if the browser user has disabled image loading)."
  60.                     
  61. #define kLit30 "Visited Link:"
  62. #define kLit31 "Color for linked text when the link has been visited."
  63. #define kLit32 "Background Image:"
  64. #define kLit33 "&Set..."
  65. #define kLit34 "Choose an image file to use as the background"\
  66.                     " for this document."
  67.                                 
  68. #define kLit35 "&None"
  69. #define kLit36 "Remove any background image for this document."
  70. #define kLit37 "The currently selected background image file."
  71. #define kLit38 "A sample of the currently selected background image."
  72.                                          
  73. #define kLit39 "Controls which category of document options is displayed."
  74.                                   
  75. #define kLit40 "Advanced"
  76. #define kLit41 "Basic"
  77. #define kLit42 "HTML Extras"
  78. #define kLit43 "Use &Defaults"
  79. #define kLit44 "Remove any background image, and restore all"\
  80.                     " color settings to their default values."
  81.                     
  82. #define kLit45 "Document &Encoding:"
  83. #define kLit46 "The character encoding scheme for this document."
  84. #define kLit47 "Western (Latin1)"
  85.  
  86. #define kLit48 "Document &Encoding:"
  87. #define kLit49 "The character encoding scheme for this document."
  88. #define kLit50 "Japanese (JIS)"
  89. #define kLit51 "Japanese (Shift-JIS)"
  90. #define kLit52 "Japanese (EUC)"
  91.  
  92. //Note: the file name will probably not change, but the name of the "Help" folder
  93. //probably will. Note that the translated name MUST be 8 chars or less.
  94. #define kHelpURL "Help/DocOpts.htm"
  95. #define kHelpTitle "&Help"
  96.  
  97. //Localized Fonts 
  98. #if Platform_Mac
  99.     #define kHelpFont                 Font = {Geneva, 10, {Plain}}
  100.     #define kSmallDisplayFont      Font = {Geneva, 9, {plain}}
  101.     #define kGetPostPopupFont        Font = {Chicago, 12, {Plain}
  102. #else
  103.     #define kHelpFont                     Font = {"MS Sans Serif", 8, {Plain}}
  104.     #define kSmallDisplayFont      Font = {"MS Sans Serif", 8, {Plain}}
  105.     #define kGetPostPopupFont        Font = {"MS Sans Serif", 8, {Plain}}
  106. #endif
  107.  
  108.  
  109. #define kEditTextFont             Font = EditFont
  110.  
  111. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  112. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  113. /************************** LOCALIZED STRING CONSTANTS END **************************************/
  114.  
  115.  
  116.  
  117. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  118. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  119. /************************** LOCALIZED NUMERICAL CONSTANTS BEGIN **************************************/
  120.  
  121. //This section contains integer constants that are used to format this VDL program.
  122. //These are localizable - they only need to be changed if the localized strings 
  123. //are sufficiently longer than the US strings. Localize the strings first, then the constants.
  124.  
  125. #if Platform_Mac
  126.     //Standard Label width, used for many panes. 
  127.     #define StdLabelW 143
  128.  
  129.     //Height of the help view at the bottom of the window
  130.     #define kHelpViewHeight 35
  131.  
  132.     //Height of the main list (each of the three panes has this height)
  133.     #define kMainListHeight 160
  134.  
  135. #else
  136.     //Standard Label width, used for many panes. 
  137.     #define StdLabelW 150
  138.     
  139.     //Height of the help view at the bottom of the window
  140.     #define kHelpViewHeight 65
  141.  
  142.     //Height of the main list (each of the three panes has this height)
  143.     #define kMainListHeight 175
  144.  
  145. #endif
  146.  
  147.  
  148. //Base value used to compute the width of this dialog
  149. #define kDialogBaseWidth 400 
  150.  
  151. //Width of the "get/post" popup.
  152. #define kGetPostPopupWidth 64
  153.  
  154. //Label width in the HTML Extras pane.
  155. #define kHTMLExtrasLabelW 180
  156.  
  157. //Width of all the labels of the color controls in the "Colors and Background" pane. 
  158. #define kColorLabelWidth 100
  159.  
  160. //Height of the text warning that background images will not appear
  161. #define kBackgroundImageTextHeight 40
  162.  
  163. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  164. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  165. /************************** LOCALIZED NUMERICAL CONSTANTS END **************************************/
  166.  
  167. //No further localizable data past this point
  168.  
  169. /************************** END LOCALIZABLE DATA ***************************************************/
  170. /************************** END LOCALIZABLE DATA ***************************************************/
  171. /************************** END LOCALIZABLE DATA ***************************************************/
  172.  
  173. #ifdef TryMe
  174. #define LITE_VERSION 1
  175. #endif
  176.  
  177. #if Platform_Mac
  178.     #define dlogBack BackColor = {65535, 65535, 65535}
  179. #else
  180.     #define dlogBack BackColor = Dialog
  181. #endif
  182.  
  183.  
  184. #define EH EnabledHelpString =
  185.  
  186. Define(Advanced)
  187.     Margin(2,5,2,2, dlogBack)
  188.         VList()
  189.             {
  190.             Spacer(Width = kDialogBaseWidth + 28, Height = 0);
  191.             Spacer(Height = 5, Width = 0);
  192.             
  193.             HList(Width = UseParent)
  194.                 {
  195.                 EditText( formScript, 
  196.                     Width = UseParent, 
  197.                     Label = kLit3,
  198.                     LabelAlignment = Right,
  199.                     LabelWidth = StdLabelW,
  200.                     BackColor = {65535, 65535, 65535}, kEditTextFont,
  201.                     NoSmartQuotes, NoSmartEdits,
  202.                     EH kLit4 );
  203.                 Spacer(Width = 5, Height = 0);
  204.                 #if Platform_Mac
  205.                     IntegerPopup("", 0, method, Width = kGetPostPopupWidth, kGetPostPopupFont },
  206.                 #else
  207.                     IntegerPopup("", 0, method, Width = kGetPostPopupWidth, kGetPostPopupFont,
  208.                 #endif
  209.                     EH kLit5 )
  210.                     {
  211.                     IntItem(kLit6, 0);
  212.                     IntItem(kLit7, 1);
  213.                     };
  214.                 }
  215.             
  216.             Spacer(Height = 5, Width = 1);
  217.             EditText( baseURL, 
  218.                          Width = UseParent, 
  219.                          Label = kLit8,
  220.                          LabelAlignment = Right,
  221.                          LabelWidth = StdLabelW,
  222.                          BackColor = {65535, 65535, 65535},
  223.                          kEditTextFont, NoSmartQuotes, NoSmartEdits,
  224.                          EH kLit9 );
  225.             
  226.             Spacer(Height = 5, Width = 1);
  227.             EditText( defaultTarget, 
  228.                          Width = UseParent, 
  229.                          Label = kLit10,
  230.                          LabelAlignment = Right,
  231.                          LabelWidth = StdLabelW,
  232.                          BackColor = {65535, 65535, 65535},
  233.                          kEditTextFont, NoSmartQuotes, NoSmartEdits,
  234.                          EH kLit11 );
  235.             
  236.             #ifdef Kanji_Support
  237.                 Spacer(Height=5, Width=1);
  238.                 Switch(docEncoding, Width = UseParent)
  239.                     {
  240.                     case 0:
  241.                         IntegerPopup( kLit45, StdLabelW+4, docEncoding,
  242.                                           Alignment = Right,
  243.                                           EH kLit46 )
  244.                             {
  245.                             IntItem(kLit47, 0);
  246.                             };
  247.                     
  248.                     case 1:
  249.                     case 2:
  250.                     case 3:
  251.                         IntegerPopup( kLit48, StdLabelW+4, docEncoding, Alignment = Right,
  252.                                           EH kLit49 )
  253.                             {
  254.                             IntItem(kLit50, 1);
  255.                             IntItem(kLit51, 2);
  256.                             IntItem(kLit52, 3);
  257.                             };
  258.                     
  259.                     default:
  260.                         Spacer(Height=0, Width=0);
  261.                     } // Switch (docEncoding)
  262.             #endif // Kanji_Support
  263.             } //Advanced
  264.             
  265.     
  266.  
  267. Define(HTMLExtras)
  268.     Margin(2,0,2,2, dlogBack, Height = UseParent)
  269.     //The margins don't look right here, unless you do it this way.
  270.     #if Platform_Win
  271.         Margin(2,2,2,2, Single, dlogBack, Height = UseParent)
  272.             VList(VScroll, dlogBack, Height = UseParent, NoFrame)
  273.     #else
  274.         VList(VScroll, dlogBack, Height = UseParent)
  275.     #endif
  276.             Margin(5,5,5,5)
  277.                 VList()
  278.                     {
  279.                     Spacer(Width = kDialogBaseWidth, Height = 0);
  280.                     EditText( prefixComment, 
  281.                                     Width = UseParent, 
  282.                                     Label = kLit12,
  283.                                     LabelAlignment = Right,
  284.                                     LabelWidth = kHTMLExtrasLabelW,
  285.                                     BackColor = {65535, 65535, 65535},
  286.                                     kEditTextFont, NoSmartQuotes,
  287.                                     EH kLit13 );
  288.                     
  289.                     Spacer(Height = 5, Width = 1);
  290.                     EditText(    htmlParams, 
  291.                                     Width = UseParent, 
  292.                                     Label = kLit14,
  293.                                     LabelAlignment = Right,
  294.                                     LabelWidth = kHTMLExtrasLabelW,
  295.                                     BackColor = {65535, 65535, 65535},
  296.                                     kEditTextFont, NoSmartQuotes, NoSmartEdits,
  297.                                     EH kLit15 );
  298.                 
  299.                         Spacer(Height = 5, Width = 1);
  300.                     EditText(    headParams, 
  301.                                     Width = UseParent, 
  302.                                     Label = kLit16,
  303.                                     LabelAlignment = Right,
  304.                                     LabelWidth = kHTMLExtrasLabelW,
  305.                                     BackColor = {65535, 65535, 65535},
  306.                                     kEditTextFont, NoSmartQuotes, NoSmartEdits,
  307.                                     EH kLit17 );
  308.                     
  309.                     Spacer(Height = 5, Width = 1);
  310.                     EditText( headContents, 
  311.                                     Width = UseParent, 
  312.                                     Label = kLit18,
  313.                                     LabelAlignment = Right,
  314.                                     LabelWidth = kHTMLExtrasLabelW,
  315.                                     BackColor = {65535, 65535, 65535},
  316.                                     kEditTextFont, NoSmartQuotes, NoSmartEdits,
  317.                                     EH kLit19 );
  318.         
  319.                     Spacer(Height = 5, Width = 1);
  320.                     EditText( bodyParams, 
  321.                                     Width = UseParent, 
  322.                                     Label = kLit20,
  323.                                     LabelAlignment = Right,
  324.                                     LabelWidth = kHTMLExtrasLabelW,
  325.                                     BackColor = {65535, 65535, 65535},
  326.                                     kEditTextFont, NoSmartQuotes, NoSmartEdits,
  327.                                     EH kLit21 );
  328.                     } // HTMLExtras
  329.  
  330.  
  331. Define(Basic)
  332.     Margin(2,5,2,2, dlogBack)
  333.         VList()
  334.             {
  335.             #if Platform_Win
  336.             Spacer(Height = 5, Width = 0, ScaleV);
  337.             #endif
  338.             
  339.             Spacer(Width = kDialogBaseWidth + 28, Height = 0);
  340.             HList()
  341.                 {
  342.                 StaticText( kLit22, Width = kColorLabelWidth, Alignment = Right,EH kLit23);
  343.                 Spacer(Width = 4, Height = 0);
  344.                 Margin(2,2,2,2, Single, Outer)
  345.                     ColorControl( textR, textG, textB, Height = 12, Width = 20,
  346.                                       EH kLit23 );
  347.                 
  348.                 Spacer(Width = 20, Height = 0);
  349.                 StaticText( kLit24,  Width = kColorLabelWidth, Alignment = Right,EH kLit25);
  350.                 Spacer(Width = 4, Height = 0);
  351.                 Margin(2,2,2,2, Single, Outer)
  352.                     ColorControl( linkR, linkG, linkB, Height = 12, Width = 20,
  353.                                       EH kLit25 );
  354.                 
  355.                 Spacer(Width = 20, Height = 0);
  356.                 StaticText( kLit26, Width = kColorLabelWidth, Alignment = Right,EH kLit27);
  357.                 Spacer(Width = 4, Height = 0);
  358.                 Margin(2,2,2,2, Single, Outer)
  359.                     ColorControl( aLnkR, aLnkG, aLnkB, Height = 12, Width = 20,
  360.                                       EH kLit27 );
  361.                 }
  362.             
  363.             Spacer(Height = 5, Width = 0);
  364.             HList()
  365.                 {
  366.                 StaticText( kLit28, Width = kColorLabelWidth, Alignment = Right,EH kLit29);
  367.                 Spacer(Width = 4, Height = 0);
  368.                 Margin(2,2,2,2, Single, Outer)
  369.                     ColorControl( backR, backG, backB, Height = 12, Width = 20,
  370.                                       EH kLit29 );
  371.                 
  372.                 Spacer(Width = 20, Height = 0);
  373.                 StaticText( kLit30, Width = kColorLabelWidth, Alignment = Right,EH kLit31 );
  374.                 Spacer(Width = 4, Height = 0);
  375.                 Margin(2,2,2,2, Single, Outer)
  376.                     ColorControl( vLnkR, vLnkG, vLnkB, Height = 12, Width = 20,
  377.                                       EH kLit31 );
  378.                 }
  379.                 
  380.             Spacer(Width=0, Height=14);
  381.             
  382.             HList()
  383.                 {
  384.                 Margin(0,2,10,0)
  385.                     StaticText( kLit32, Width = StdLabelW, Alignment = Right);
  386.                 PushButton( kLit33, 3107, "SetBackPict",
  387.                                 EH kLit34 );
  388.                 Spacer(Width = 10, Height = 0);
  389.                 PushButton( kLit35, 3106, "ClearBackPict", 
  390.                                 EH kLit36 );
  391.                 }
  392.             Margin(12,4,0,0, Width=UseParent)
  393.                 HList(Width = UseParent)
  394.                     {
  395.                     Margin(4,4,4,4, Single, Width=UseParent, Height = 48, BackColor = White)
  396.                         StaticText( processedBackPict, Width = UseParent, Height = UseParent,
  397.                                         EH kLit37 );
  398.                     Spacer(Width = 10, Height = 0);
  399.                     Margin(4,4,4,4, Single, Width=48, Height = 48)
  400.                         GenericView( "PreviewBackPict",
  401.                                          EH kLit38 );
  402.                     }
  403.             
  404.             Spacer(Height = 10, ScaleV);
  405.             EditText(    title, 
  406.                             Width = UseParent, 
  407.                             Label = kLit1,
  408.                             LabelAlignment = Right,
  409.                             LabelWidth = StdLabelW,
  410.                             BackColor = {65535, 65535, 65535},
  411.                             kEditTextFont, NoSmartQuotes,
  412.                             EH kLit2 );
  413.                             
  414.             } // Basic
  415.                                         
  416.  
  417. #define kMainListWidth  kDialogBaseWidth + 20
  418.     
  419. Define(MainList)
  420.     Margin(10,15,10,10, dlogBack)
  421.         HList()
  422.             {
  423.             Spacer(Width = 0, Height = kMainListHeight, ScaleV);
  424.             VList(Height = UseParent)
  425.                 {
  426.                 Spacer(Width = kMainListWidth, Height = 0, ScaleH);
  427.                 Switch(mode, Height = UseParent)
  428.                     {
  429.                     case 0:
  430.                     default:
  431.                         Margin(0,0,0,0)
  432.                             Call(Basic);
  433.                     
  434.                     #if !LITE_VERSION
  435.                     case 1:
  436.                         Margin(0,0,0,0, Height = UseParent)
  437.                             Call(HTMLExtras);
  438.                     
  439.                     case 2:
  440.                         Margin(0,0,0,0)
  441.                             Call(Advanced);
  442.                     #endif
  443.  
  444.                     } //Switch
  445.                 } //HList
  446.             } //VList
  447.  
  448.  
  449.  
  450. Margin(10, 8, 10, 8, dlogBack)
  451.     VList()
  452.         {
  453.         #if Platform_Mac
  454.         Layout(AllowOverlap)
  455.             {
  456.             #if !LITE_VERSION
  457.             HList(Left = 10, Top = 0)
  458.                 {
  459.                 Spacer(Width = 5, Height = 0);
  460.                 IntegerPopup( "", 0, mode,
  461.                                   EH kLit39, NoUndo )
  462.                     {
  463.                     IntItem(kLit41, 0); // Basic
  464.                     IntItem(kLit40, 2); // Advanced
  465.                     IntItem(kLit42, 1); // HTML Extras
  466.                     };
  467.                 Spacer(Width = 5, Height = 0);
  468.                 }            
  469.             #endif
  470.                 
  471.             Margin(1,1,1,1, BackColor = {0,0,0}, Left =  0, Top = 10)
  472.                 Call(MainList);
  473.             } //Layout
  474.         #else //Platform_Mac
  475.         #if !LITE_VERSION
  476.         TabControl(mode, NoUndo)
  477.             {
  478.             Tab(kLit41, 0); // Basic
  479.             Tab(kLit40, 2); // Advanced
  480.             Tab(kLit42, 1); // HTML Extras
  481.             
  482.             Subview:    
  483.                 Call(MainList);
  484.             }; //Layout
  485.         #else
  486.         Call(MainList);
  487.         #endif
  488.         #endif
  489.             
  490.         #if Platform_Mac
  491.             Spacer(Height = 3, Width = kMainListWidth+2);
  492.         #else
  493.             Spacer(Height = 3, Width = 0);
  494.         #endif
  495.         
  496.         #if Platform_Mac
  497.         HelpView(Width = UseParent, Height = 35, kHelpFont);
  498.         #else
  499.         Margin(2,2,2,2, Single)
  500.             HelpView(Width = UseParent, Height = 65, kHelpFont);
  501.         Spacer(Height = 10, Width = 0, VScale);
  502.         #endif
  503.         
  504.         HList(Width = UseParent)
  505.             {
  506.             #if Platform_Mac
  507.             PictPushButton(4000, "ContextHelpProc", HelpFile = kHelpURL)
  508.                 {
  509.                 Enabled(Draw, 'cicn',14055 );
  510.                 Disabled(Draw, 'cicn',14057 ); 
  511.                 Tracking(Draw, 'cicn',14056 );
  512.                 };
  513.             #else
  514.             PushButton(kHelpTitle, 4000, "ContextHelpProc", HelpFile = kHelpURL);
  515.             #endif
  516.             
  517.             Spacer(Width = 20, Height = 0);
  518.             
  519.             #ifdef TryMe
  520.                 StandardDialogButtonsH;
  521.             #else
  522.             Switch(mode)
  523.                 {
  524.                 case 0:
  525.                     HList(Width = UseParent)
  526.                         {
  527.                         PushButton( kLit43, 3106, "ResetColors",
  528.                                             EH kLit44 );
  529.                         StandardDialogButtonsH;
  530.                         }
  531.                 
  532.                 case 1:
  533.                     StandardDialogButtonsHNoReturn;
  534.                 
  535.                 case 2:
  536.                     StandardDialogButtonsH;
  537.                 
  538.                 default:
  539.                     StandardDialogButtonsH;
  540.                 
  541.                 } //Switch
  542.             #endif
  543.             } //HList
  544.         }
  545.  
  546.